1 : // Computer Program Listing Appendix Under 37 CFR 1 .52(e) 

2: 

3: 

4:/* 

5: Appendix includes two sets of code samples, with the first set including: 

6: * httprequest_dorequest 

7: HTTP Request ::do_request method. 

8: * httprequest_doqueryrequest 

9: HTTPRequest::DoQueryRequest method. 

10: HTTPRequest::do_request does the work of connecting 

11: to the appropriate database, and executing the appropriate 

12: service. 

13: * httprequest_parseuri 

14: HTTPRequest::ParseURI method. 

15: * httprequest_serviceexists 

16: HTTPRequest::ServiceExists method. 

17: HTTPRequest::ParseURI and HTTPRequest::ServiceExists 

18: do most of the work of parsing a URI to determine which 

19: service maps to that particular URI. 

20: * httpconnection_decl 

21 : Class declaration for HTTPConnection. 

22: * httpprotocol_decl 

23: Class declaration for HTTP Protocol. 

24: * httprequest_decl 

25: Class declaration for HTTPRequest. 

26: * httppres_decl 

27: Class declaration for HTTPPres. 

28: 7 

29: 

30: // httpconnection_decl 

31 : // Copyright (c) 2004, Sybase, Inc. All Rights Reserved. 
32: class HttpConnection { 
33: public: 

34: HttpConnection * _next; 

35: protected: 

36: HttpSocket* _socket; 

37: HttpSockOStream * _stream; 

38: HttpConnectionState _state; 

39: HttpProtocol * _protocol; 

40: HttpRequest * _request; 

41: HttpListener * Jistener; 

42: HttpString _rmt_addr; 

43: HttpString _lcl_addr; 

44: HttpString _rxline; 

45: char * _dbname; 

46: HttpString _dbConnected; 

47: char * _rxbuffer; 

48: char * _decrypt_buffer; 

49: char Jast; 

50: HttpRxCompletion * _rxcomplete; 



HttpTxCompletion * _txcomplete; 
u i nt32 _req u est_s ize ; 
u i nt32 _pkts_recei ved ; 
a_fast_tod _last_read_time; 
a_boo I _i g no re_rece i ve ; 
a_boo I _dbname_requ i red ; 
a_bool _dbname_provided; 
a_web_protocol_type _type; 
public: 

HttpConnection( SysSocket sock, char *dbn, a_web_protocol_type 

HttpListener *l, char *lcl_addr, char *rmt_addr ); 
~HttpConnection(); 
void Start(void); 

void Stop( a_bool on_worker = FALSE ); 

void DelayedStop( void ); 

void RequestFinished( void ); 

void CleanUp( void ); 

void ProcessSend( int err, int datalen ); 

a_bool Processl_ine( char * rxbuffer, int * offset, int datalen 

void ProcessRecv( int err, int datalen ); 

void ProcessData( char *, int ); 

void ProcessHttpsRecv( a_bool force = FALSE ); 

void lgnoreReceive(); 

a_web_protocol_type GetType( void ) const { return _type; } 

char * GetDbName( void ) const { return _dbname; } 

a_bool DBNameRequired( void ) const { return _dbname_required; 



51 
52 
53 
54 
55 
56 
57 
58 
59 
60 

type, 
61 
62 
63 
64 
65 
66 
67 
68 
69 

); 

70: 
71: 
72: 
73: 
74: 
75: 
76: 
} 

77: a_bool DBNameProvided( void ) const { return _dbname_provided; 
} 

78: char * GetDbConnected( void ) const { return 
_dbConnected.c_str(); } 
79 
80 
81 
82 
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void SetDbConnected( char *str ) { 
_dbConnected.clear(); 
_dbConnected.append( str ); 
} 

HttpListener * GetListener( void ) const { return Jistener; } 
Http Protocol * GetProtocol( void ) const { return _protocol; } 
HttpRequest * GetRequest( void ) const { return _request; } 
HttpOrderedList * GetVariables( void ) const { return 
request->GetVariables(); } 

ParseRequestString( HttpRequest * request, HttpString 



ParseHeaderString( HttpRequest *request, HttpString 

ParseURI( HttpRequest * request ); 
ParseVersion( HttpRequest * request ); 
CanDelete( void ); 
CheckForTimeout( void ); 
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protected: 

HttpSockOStream * GetStream() const { return _stream; } 
friend class HttpListener; 
friend class HttpProtocol; 
private: 
void StartRequest(); 

}; 



93: a_bool SendHttpHeaders( HttpRequest *request, HttpOStream 
*stream ); 

94: a_bool SendHttpError( HttpRequest "request, HttpOStream 
*stream ); 

95: a_bool SendSQLError( HttpRequest "request, HttpOStream "stream 

); 

96: a_bool lsSecure( void ) const; 

97: void UpdateReceivedConnProperties( p_Connection ) const; 
98: void UpdateSentConnProperties( p_Connection ) const; 
99: void GetRemoteMachineAddr( char *buf, int32 buflen ); 
1 00: uint32 GetldleTimeout( void ) const; 
1 01 : a_fast_tod Getl_astRequestTime( void ) const { return 
_last_read_time; } 

102: HttpString *Getl_ocalMachineAddr( void ) { return &_lcl_addr; } 
103: int64 GetBytesWritten( void ) const { return 
_socket->getBytesWritten(); } 
104 
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// httppres_decl 

// Copyright (c) 2004, Sybase, Inc. All Rights Reserved, 
class HttpPres : public StubPres { 
protected: 

HttpOStream * _ostream; 

UTCollation * _col; // db's collation 

HttpPresStatus _status; 

HttpOrderedList * _args; 

uint32 _arg_id; 

uint32 _arg_len; 

a_byte * _arg_data; 

uint32 _descriptor_count; // number of columns in query 
uint32 _row_ctr; // number of rows written 
uint32 _col_ctr; // number of columns described/written 
a_ptrint _bin_bits; // which columns are binary data 
a_bool _printed_doc; // has any doc been written 
a_bool _started_doc; // has the doc been started 
a_bool _started_set; // has started the result set 
a_bool _started_row; 

a_bool _wants_null_values; // output wants to show nulls 
a_bool PutData( char ** buf, size_t len, uint32 flags ); 
a_bool PutData( char * buf, size_t len, uint32 flags ) 
{ return PutData( &buf, len, flags ); } 
// Put data Encoded & Charset-converted 
inline a_bool PutEC( char * buf ) 



138: { return PutData( buf, _strlen(buf), HF_ENC|HF_CONV ); } 

139: inline a_bool PutEC( char ** buf, size_t len ) 

140: { return PutData( buf, len, HF_ENC|HF_CONV ); } 

141 : inline a_bool PutEC( char * buf, size_t len ) 

142: { return PutData( buf, len, HF_ENC|HF_CONV ); } 

143: inline a_bool PutEC( HttpString & str ) 

144: { return PutData( str.strQ, str.length(), HF_ENC|HF_CONV ); } 

145: // Put data Charset-converted (no encoding) 

146: inline a_bool PutCC( char ch ) 

147: { return PutData( &ch, 1 , HF_CONV ); } 

1 48: inline a_bool PutCC( char * buf ) 

149: { return PutData( buf, _strlen(buf), HF_CONV ); } 

150: inline a_bool PutCC( char * buf, size_t len ) 

151 : { return PutData( buf, len, HF_CONV ); } 

152: inline a_bool PutCC( HttpString & str ) 

153: { return PutData( str.str(), str.length(), HF_CONV ); } 

154: // Put ASCII data - not encoded, and not Charset-converted unless 

it needs 

155: // to be (i.e. output character set is multi-byte) 

156: inline a_bool PutAsc( char c ) 

157: { return PutData( &c, 1 , HF_ASC ); } 

158: inline a_bool PutAsc( char * buf ) 

159: { return PutData( buf, _strlen(buf), HF_ASC ); } 

1 60: inline a_bool PutAsc( char * buf, size_t len ) 

161 : { return PutData( buf, len, HF_ASC ); } 

1 62: inline a_bool PutAsc( HttpString & str ) 

163: { return PutData( str.str(), str.lengthQ, HF_ASC ); } 

164: public: 

165: HttpPres( HttpOStream * ostream, UTCollation * col ) 

166: :StubPres() 

1 67: , _ostream( ostream ) 

168: ,_col(col) 

169: , _status( PRES_OK ) 

170: , _args( NULL ) 

171: ,_arg_id(0) 

172: ,_arg_len(0) 

173: , _arg_data( NULL ) 

1 74: , _descriptor_count( 0 ) 

175: ,_row_ctr(0) 

176: ,_col_ctr(0) 

177: , _bin_bits( 0 ) 

1 78: , _printed_doc( FALSE ) 

1 79: , _started_doc( FALSE ) 

1 80: , _started_set( FALSE ) 

181: , _started_row( FALSE ) 

182: , _wants_null_values( TRUE ) 

183: { 

184: } 

185: virtual ~HttpPres(); 

186: inline HttpPresStatus GetPresStatus( void ) 



187: { 

188: return _status; 

189: } 

190: inline a_bool PresStatusOk( void ) 

191: { 

192: return _status == PRES_OK; 

193: } 

194: void SetArguments( HttpOrderedList * args ) 

195: { 

196: // Note: caller responsible for freeing args. 

197: _args = args; 

198: } 

199: a_bool ReceiveHostVariable( an_sqlpres_value *value, uint32 
*index ); 

200: a_bool ReceiveMultiBegin( uint32* totaljength ); 

201 : a_bool ReceiveMultiPiece( void * buff, uint32 buffjen, uint32* 

recvjen ); 

202: a_bool ReceiveMultiEnd( void ); 

203: void ReportSQLError( HttpProtocol * proto ); 

204: protected: 

205: a_bool lsBinaryColumn( uint32 c ); 

206: inline void SetPresStatus( HttpPresStatus status ) 

207: { 

208: if( _status == PRES_OK ) { 

209: _status = status; 

210: } 

211: } 

212: void MakeErrorString( char * buff, size_t len, a_bool 
replace_quotes ); 

213: public: 

214: // methods inherited from StubPres 

215: a_bool SendValueSetDescriptor( uint16 descjd, 

216: char *coln_name, 

217: uint16 coln_namelen, 

218: char *table_name, 

219: char *db_name, 

220: char *user_name, 

221 : a_byte asa_domain_id, 

222: uint32 asa_usertype, 

223: uint32 asa_flags, 

224: uint32 asa_maxlen, 

225: uint16 asa_prec, 

226: uint16 asa_scale, 

227: a_describe_flag describe_flags ); 

228: a_bool ReceiveDescriptor( an_sqlpres_desc * desc ); 

229: a_bool SendValue( a_domain_number domain_id, void * data, uint32 

len, uint32 truelen, a_textptr_value * textptr ); 

230: a_bool SendNullValue( a_domain_number domain_id, p_expr expr ); 

231 : a_bool SendNoneValue( a_domain_number domain_id ); 

232: a_bool SendMultiBegin( a_domain_number domain_id, uint32 



totaljength, uint32 untruncatedjength, a_textptr_value * textptr, 
uint32 flags ); 

233: a_bool SendMultiPiece( void ** data, uint32 piecejength, uint32 

flags ); 

234: a_bool SendMultiEnd( uint32 flags ); 

235: a_bool SendValueSetRow( an_error_mapping *errmap, 

an_sqlpres_tran_status tran_status ); 

236: a_bool SendSuccessOrError( p_Connection conn, 

237: a_bool send_iocount, 

238: a_bool send_tran_flags ); 

239: a_bool Send RequestDone( void ); 

240: a_bool SyncPoint( void ); 

241 : class DBConnConverter *GetConverter( void ) { 

242: return _ostream->getConverter(); 

243: } 

244: const class Charsetlnfo *GetCharsetlnfo( void ) { 

245: return _ostream->getCharsetlnfo(); 

246: } 

247: protected: 

248: // methods that control output 

249: virtual void AddColumn( 

250: char * table_name, 

251 : char * coln_name, 

252: uint16 coln_namelen, 

253: uint32 asa_usertype ) 

254: { 

255: _unused( table_name ); 

256: _unused( coln_name ); 

257: _unused( coln_namelen ); 

258: _unused( asa_usertype ); 

259: }; 

260: virtual void BeginDoc( void ) {}; // output doc header 

261 : virtual void BeginResultSet( void ) {}; // start of result set 

262: virtual void BeginRow( void ) {}; 

263: virtual void BeginColumn( void ) {}; 

264: virtual void EndColumn( void ) {}; 

265: virtual void EndRow( void ) {}; 

266: virtual void EndResultSet( void ) {}; 

267: virtual void EndDoc( void ) {}; 

268: virtual void SendColumnValue( void * data, uint32 len ) { 

_unused(data); _unused(len); }; 

269: virtual void SendColumnNull( void ) {}; 

270: virtual void SendColumnNone( void ) {}; 

271 : virtual void SendColumnMultiBegin( void ) {}; 

272: virtual void SendColumnMultiPiece( void ** data, uint32 len ) { 

_unused(data); _unused(len); }; 

273: virtual void SendColumnMultiEnd( void ) {}; 

274: virtual void SendSQLError( void * errmsg, size_t len ) = 0; 

275: virtual void NoContentDocBody( void ) {}; // called when doc has 

no content 



276: private: 

277: // these routines guarantee that the virtual versions are called 
in correct order 

278: inline void DoBeginDoc( a_bool start ing_a_row ) 
279: { 

280: if( ! _started_doc ) { 
281: BeginDoc(); 
282: if( starting_a_row ) { 
283: Begin ResultSet(); 
284: _started_set = TRUE; 
285: } 

286: _started_doc = TRUE; 
287: _printed_doc = TRUE; 

288: } 
289: } 

290: inline void DoBeginRow( void ) 
291: { 

292: if( ! _started_row ) { 

293: DoBeginDoc( TRUE ); // ensure we've started the doc 

294: BeginRow(); 

295: _started_row = TRUE; 

296: _col_ctr = 0; 

297: _row_ctr ++; 

298: } 

299: } 

300: inline void DoBeginColumn( void ) 
301: { 

302: DoBeginRow(); // ensure we have started a row 

303: BeginColumn(); 
304: } 

305: inline void DoEndColumn( void ) 
306: { 

307: EndColumn(); 

308: _col_ctr++; 
309: } 

310: inline void DoEndRow( void ) 
311: { 

312: if ( _started_row ) { 

313: EndRow(); 

314: _started_row = FALSE; 

315: } 

316: } 

31 7: inline void DoEndResultSet( void ) 
318: { 

319: if ( _started_set ) { 

320: DoEndRow(); // ensure we have closed the row 

321: EndResultSet(); 

322: _started_set = FALSE; 

323: } 

324: } 
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Inline void DoEndDoc( void ) 
{ 

if( _printed_doc ) { 

// we have something on the document 

DoEndResultSet(); 
} else { 

// we never generated any doc content 
if( ! _started_doc ) { 
DoBeginDoc( FALSE ); 

} 

NoContentDocBody(); 

} 

if ( _started_doc ) { 
EndDoc(); 

_started_doc = FALSE; 

} 

} 

}; 



// httpprotocol_decl 

// Copyright (c) 2004, Sybase, Inc. All Rights Reserved, 
class HttpProtocol { 
private: 

HttpPhase _phase; // current phase of the request 
a_perf_tod _tod_connected; // time of day client connected 
a_perf_tod _tod_queued; // time of day request was queued 
a_perf_tod _tod_started; // time of day request was started 
// a_perf_tod _tod_finished; // time of day request was finished 
= time it is logged 
354: HttpString _method; 
355: HttpString _uri; 
356: HttpString _version; 

357: HttpHashTable _request; // table of headers in request 

358: HttpHashTable _response; // table of headers to send in response 

359: HttpHashTable _options; //table of options 

360: HttpString JastHeaderKey; // if value is continued on next 

line, 

361 : // we need to know what to 

append it to 

362: HttpStatus _status; 
363: HttpString _errorstr; 
364: /* 

365: _body_expected is whether or not we're expecting a body with this 
request. 

366: _body_expected_length is the expected length of the body (based on 
HTTP headers). 
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_body.length() is the actual length of the body received so far. 

7 

HttpString _body; 



370: a_bool _body_expected; 

371: uint32 _body_expected_length; 

372: HttpConnection * _connection; 

373: HttpLogger * Jogger; 

374: a_bool _has_been_logged; 

375: void SetDateHeaders( void ); 

376: a_bool _send_headers; 

377: a_bool _send_body; 

378: a_bool _content_type_set; 

379: friend class HttpRequest; 

380: friend class HttpLogger; 

381 : public: 

382: HttpProtocol( HttpConnection * connection, HttpLogger * logger ); 

383: ~HttpProtocol(); 

384: HttpPhase GetPhase( void ) { return ( _phase ); } 

385: a_perf_tod * GetTodConnected( void ) { return( 
&_tod_connected ); } 

386: a_perf_tod * GetTodQueued( void ) { return( &_tod_queued ); } 

387: a_perf_tod * GetTodStarted( void ) { return( &_tod_started ); 
} 

388: void SetReqQueued( void ); 

389: void SetReqStarted( void ); 

390: void SetReqFinished( void ); 

391 : void SetOkToDelete( void ); 

392: const HttpString * GetMethod() const { return &_method; } 

393: const HttpString * GetUriQ const { return &_uri; } 

394: const HttpString * GetVersionQ const { return &_version; } 

395: I* 

396: Request header methods 

397: 7 

398: void SetRequestHeader( const char *key, 

399: const HttpString *value ) { 

400: _request.Set( key, value->str(), value->length() ); 

401 : JastHeaderKey.clear(); 

402: JastHeaderKey.append( key ); 

403: } 

404: void SetRequestHeader( const char *key, 

405: const char *value, 

406: const size_t len ) { 

407: _request.Set( key, value, len ); 

408: JastHeaderKey.clear(); 

409: JastHeaderKey.append( key ); 

410: } 

411: a_bool AppendRequestHeader( HttpString &value ); 

412: HttpString * GetRequestHeader( const char * key ) { 

413: return _request.Get( key ); 

414: } 

415: HttpString * GetRequestNextKey( const char * key ) { 

41 6: return _request.GetNextKey( key ); 

417: } 



418: /* 

41 9: Response header methods 
420: 7 

421 : void SetResponseHeader( const char * key, const HttpString * 
value ) 

422: { _response.Set( key, value->str(), value->length() 

);} 

423: a_bool SetResponseHeader( const char * key, const char * value 

); 

424: HttpString * GetResponseHeader( const char * key ) { return 
_response.Get( key ); } 

425: a_bool SetHTTPOption( char * optname, char * value ); 
426: HttpString * GetHTTPOption( char * optname ) { return( 
_options.Get( optname ) ); } 

427: a_bool ContentTypeSet( void ) const { return 
_content_type_set; } 



// _status methods 

void SetHttpStatus( HttpStatus status ) { _status = status; } 
void SetHttpStatus( HttpRequestState state ); 
HttpStatus GetHttpStatus( void ) const { return _status; } 
char * GetHttpStatus( char * but, size_t len ); // get status 
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433: void SetErrorString( const char * str, const size_t len ); 
434: const HttpString * GetErrorString( void ) const { return 
&_errorstr; } 

435: //_body methods 

436: HttpString * GetBody( void ) { return &_body; } 
437: a_bool GetBodyExpected( void ) const { return 
_body_expected; } 

438: uint32 GetBodyExpectedl_ength( void ) const { return 
_body_expected_length; } 
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a_bool ParseRequest( const HttpString * request ); 
a_bool ParseHeader( const HttpString * header ); 
a_bool ParseMethod( void ); 
a_bool ParseBodyl_ength( void ); 
a_bool SendHttpHeaders( HttpOStream * stream ); 
a_bool SendHttpError( HttpOStream * stream ); 
void Writel_ogEntry( void ); 
void CleanUp( void ); 

a_bool ShouldSendBody( void ) const { return _send_body; } 
#if SPRODUCTION 
private: 

HttpString _resbody; 
public: 

HttpString * GetResBody( void ) { return &_resbody; } 
#endif 

}; 



// httprequest_decl 
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// Copyright (c) 2004, Sybase, Inc. All Rights Reserved. 

class HttpRequest : public RQBaseltem 

{ 

HttpConnection * _connection; 
Http Protocol * _protocol; 
HttpOStream * _stream; 
HttpService * _service; 
HttpService * _dservice; 
Database * _db; 
p_Connection _dbconnection; 
p_Worker _worker; 
a_bool _cancel; 
uint32 _uid; 
HttpString * _parms; 
HttpRequestState _state; 
HttpString _username; 
H ttpSt r i ng _pass wo rd ; 
HttpString _database; 
HttpString _service_name; 
HttpString _arguments; 
HttpSt ri ng _u rl_path ; 
HttpOrderedList _variables; 
a_bool _headers_sent; 
public: 

HttpRequest( HttpConnection * c, HttpProtocol * p, HttpOStream 



~HttpRequest(); 

p_Worker GetWorker() { return _worker; } 
HttpOrderedList * GetVariables() { return &_variables; } 
a_bool Connected() { return _dbconnection != NULL; } 
virtual void do_request(); 
void Cancel(); 
void CleanUp(); 
private: 

a_bool ServiceExists( HttpString & name ); 
a_bool DetermineServiceOptions(); 
a_bool ProcessAuthentication(); 
a_bool ProcessHttpAuthentication(); 
a_bool ProcessBasicAuthentication( const HttpString * 
base64_credentials ); 

496: a_bool DatabaseConnect( HttpString &charset ); 
497: void DatabaseDisconnect(); 
498: a_bool ParseURI(); 

499: a_bool ParseArgs( HttpHashTable * argtable, HttpString * 
args ); 

500: a_bool ParseMultipartFormData( HttpHashTable * argtable, 
HttpString * args, char * boundary ); 
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a_bool ParseArguments( HttpHashTable * arg_table ); 
a_bool ParseBodyArguments( HttpHashTable * arg_table ); 
a_bool GetURLPathArguments( HttpHashTable * argtable ); 
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a_bool DoDishRequest(); 

a_bool DoQueryRequest(); 

a_bool DoWSDLRequest(); 

a_bool ParseSoapRequest(); 

void RedirectToSecure(); 

void UpdateReceivedConnProperties( void ); 

void UpdateSentConnProperties( void ); 

void ReportSQLError( HttpPres * pres ); 

void SendHttpHeadersO; 

void MakeURI( HttpString * host, HttpService * svc, 



HttpString & uri ); 
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}; 



// httprequest_doqueryrequest 

// Copyright (c) 2004, Sybase, Inc. All Rights Reserved. 
a_bool HttpRequest::DoQueryRequest() 

J** ******************* ************* J 
{ 

p_Connection dbc = _CurrentConnection; 
p_statement stmt = NULL; 
HttpPres * pres = NULL; 
p_cursor crsr = NULL; 
p_cursor real_crsr = NULL; 
p_stmt s = NULL; 
p_expr expr = NULL; 
a_bool variable; 
HttpOrderedList stmt_parms; 
#define CHECK_CANCEL() if( _cancel ) { goto cleanup; } 
if( _service->GetServiceType() == HTTP_SERVICE_SOAP ) { 
if( !ParseSoapRequest() ) { 

_state = REQUESTBADREQUEST; 

return FALSE; 

} 

} else { 

if( !GetURLPathArguments( &_variables ) ) { 
_state = REQUESTBADREQUEST; 
return FALSE; 

} 

if( !ParseArguments( &_variables ) ) { 
_state = REQUEST_BAD_REQUEST; 
return FALSE; 

} 

if( !ParseBodyArguments( &_variables ) ) { 
_state = REQUESTBADREQUEST; 
return FALSE; 

} 

} 

CHECK_CANCEL(); 

/* 



553: Set up the presentation layer 

554: 7 

555: switch( _service->GetServiceType() ) { 

556: case HTTP_SERVICE_XML: 

557: pres = New_HttpPresXML( _stream, dbc->db()->collation ); 

558: break; 

559: case HTTP_SERVICE_HTML: 

560: pres = New_Http PresHTM L( _stream, 

561 : dbc->db()->collation, 

562: (_parms==NULL 

563: ? _arguments : *_protocol->GetUri() ) 

564: ); 

565: break; 

566: case HTTP_SERVICE_RAW: 

567: pres = New_HttpPresRaw( _stream, dbc->db()->collation ); 

568: break; 

569: case HTTP_SERVICE_SOAP: 

570: { 

571: HttpString nspace; 

572: HttpString opname; 

573: if( _dservice != NULL ) { 

574: MakeURI( (HttpString *)_protocol->_request.Get( "Host" ), 
_dservice, nspace ); 

575: } else { 

576: MakeURI( (HttpString *)_protocol->_request.Get( "Host" ), 
_service, nspace ); 

577: } 

578: GetOpName( _dservice, _service, opname ); 

579: pres = New_HttpPresSOAP( _stream, dbc->db()->collation, &nspace, 
opname.c_str() ); 

580: } 

581 : break; 

582: default: 

583: _assertD( FALSE ); 

584: break; 

585: } 

586: dbc->pres = pres; 

587: /* 

588: Prepare the statement 

589: 7 

590: if(_parms==NULL){ 

591 : // arbitrary query is allowed 

592: expr = an_ExprBuilder::GblBuilder.DB_Expr_str_len( 
_arguments.c_str(), (a_row_length) _arguments.length() ); 

593: } else { 

594: // service specifies query 

595: expr = an_ExprBuilder::GblBuilder.DB_Expr_str_len( _parms->c_str(), 
(a_row_length)_parms->length() ); 

596: } 

597: if( expr == NULL ) { 



598: _state = REQUEST_INTERNAL_ERROR; 

599: goto cleanup; 
600: } 

601 : stmt = PrepareExpr( expr, GOALSTATEMENT, NULL, FALSE ); 

602: if( stmt == NULL ) { 

603 : D E_Free_expr( expr ) ; 

604: _assertD( SQLErr( dbc ) ); 

605: ReportSQLError( pres ); 

606: goto cleanup; 

607: } 

608: dbc->SetLastStatement( expr ); 
609: DE_Free_expr( expr ); 

610: if( stmt->type != STMT_S ELECT && stmt->type != STMT_CALL ) { 

611: a_heap_ref ref; 

612: ref. mem = stmt; 

613: DV_Free_heap( &ref ); 

614: _state = REQUESTBADREQUEST; 

615: goto cleanup; 

616: } 

617: if( !SetArgumentNames( &stmt_parms, stmt ) ) { 

618: a_heap_ref ref; 

619: ref. mem = stmt; 

620: DV_Free_heap( &ref ); 

621 : _state = REQUEST SQL ERROR; 

622: goto cleanup; 

623: } 

624: stmt_parms.CopyValues( &_variables ); 

625: CHECK_CANCEL(); // last change to check cancel before doing 
actual work 

626: /* 

627: Set up a cursor 
628: 7 

629: CreatePreparedStatement( dbc, stmt, &s ); 

630: _assertD( !SQLErr( dbc ) ); 

631: _assertD(s != NULL); 

632: dbi_describe_statement( s, DESCT_SELECTLIST, DESC_NO_FLAGS, 0, 
&variable ); 

633: pres->SetArguments( &stmt_parms ); 
634: crsr = dbc->add_cursor( "http_cursor" ); 
635: crsr->stmt = s; 

636: DBOpenCursor( crsr, -1 , CURSOR_READONLY, TRUE ); 

637: if( crsr->ref != NULL && !SQLErr( dbc ) ) { 

638: // execute a procedure 

639: dbi_resume_procedure( crsr->ref, TRUE ); 

640: if( SQLErr( dbc ) ) { 

641 : // proc_cursor has been closed and freed due to error 
642: crsr->proc_cursor = NULL; 
643: crsr->stmt = NULL; 

644: } 
645: } 



646: real_crsr = dbc->FindRealCursor( crsr, NULL, FALSE ); 

647: _state = REQUEST_SUCCESS; 

648: if( real_crsr == NULL ) { 

649: // If statement was procedure call/batch, it might not have had 

650: // a result set. 

651: if( SQLErr( dbc ) ) { 

652: ReportSQLError( pres ); 

653: }else{ 

654: SendHttpHeaders(); 

655: } 

656: } else { 

657: dbc->lock_cursor( real_crsr, TRUE ); 

658: dbi_row_descriptor( (p_db_cursor)real_crsr->db_cursor.mem ); 

659: /* 

660: Update the status of the HTTP connection and send the headers 

661 : out over the wire. 

662: 7 

663: _assertD( _state == REQUEST_SUCCESS ); 

664: SendHttpHeaders(); 

665: if( _protocol->ShouldSendBody() ) { 

666: DoFullFetch( real_crsr ); 

667: if( SQLErr( dbc ) ) { 

668: ReportSQLError( pres ); 

669: } 

670: switch( pres->GetPresStatus() ) { 

671 : case PRES_OSTREAM_ERROR: 

672: _state = REQUESTFAILURE; 

673: break; 

674: case PRES_NO_XML_USERTYPE: 

675: case PRES_NOT_XML_RESULTSET: 

676: _state = REQUEST_NOT_XML; 

677: break; 

678: } 

679: } 

680: dbc->unlock_cursor( real_crsr ); 

681: } 

682: DoCloseCursor( crsr ); 

683: dbc->drop_statement( s ); 

684: if( _protocol->ShouldSendBody() ) { 

685: dbc->pres->SendSuccessOrError( dbc, TRUE, TRUE ); 

686: } 

687: #undef CHECK CANCEL 

688: cleanup: 

689: if (pres != NULL) { 

690: dbc->pres = NULL; 

691 : delete pres; 

692: } 

693: if(_cancel){ 

694: _state = REQUEST_CANCELED; 

695: } 
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return _state == REQUEST_SUCCESS; 



// httprequest_dorequest 

// Copyright (c) 2004, Sybase, Inc. All Rights Reserved, 
void HttpRequest::do_request() 

j**************************** J 
i 

UserDef *user = NULL; 

HttpString charset( 100 ); 

_worker = _CurrentWorker; 

_protocol->SetReqStarted(); 
#define CHECK_CANCEL() if( _cancel ) { goto finish; } 

CHECK_CANCEL(); 

if( !ParseURI() ) { 
_state = REQUESTBADREQUEST; 
goto finish; 

} 

if( !DatabaseConnect( charset ) ) { 
goto finish; 
} 

if( !DetermineServiceOptions() ) { 
goto finish; 
} 

/* 

Depending on the URI, the DISH service either acts like a WSDL 
service or a SOAP service. 

7 

if ( _service->GetServiceType() == HTTP_SERVICE_DISH ) { 
if( _arguments.eq( "wsdl" ) ) { 

/* 

"Fall through". The DISH service is generating WSDL, and will be 
treated as a WSDL service below. 

7 

} else { 

/* 

Set _service_name to the service specified in SOAPAction. 
SOAPAction URLs have the format "http://hostname/dbname/path" 
(quotes included). 

7 

HttpString * action = _protocol->GetRequestHeader( "SOAPAction" 

if( action != NULL ) { 
HttpStrlStream stream( action ); 
int slash = 0; 
unsigned char c; 
while( TRUE ) { 

if( !stream.get( c ) ) goto finish; 

if( c == Y ) { 



745: if( ++slash >= 4 ) break; 
746: } 

747: } 

748: _service_name.clear(); 

749: while( TRUE ) { 

750: if( !stream.get( c ) ) goto finish; 

751 : if( c == "" ) break; 

752: _service_name.append( c ); 

753: } 

754: _dservice = _service; 

755: if( !DetermineServiceOptions() ) { 

756: goto finish; 

757: } 

758: r 

759: DISH won't act as a proxy for anything other than SOAP 

services. 

760: 7 

761 : if( _service->GetServiceType() != HTTP_SERVICE_SOAP ) { 

762: goto finish; 

763: } 

764: } 

765: } 

766: } 

767: /* 

768: Secure connection 

769: 7 

770: if( _service->GetSecureRequired() && !_connection->lsSecure() ) { 

771 : RedirectToSecure(); 

772: goto finish; 

773: } 

774: /* 

775: Authentication 

776: 7 

777: if( _service->GetAuthRequired() ) { 

778: if( !ProcessAuthentication() ) { 
779: goto finish; 

780: } 

781: } 

782: user = FindUserBylD( _uid ); 

783: if( user == NULL ) { 

784: _state = REQUESTJNVALIDJJSER; 

785: goto finish; 

786: } 

787: _dbconnection->SetUser( user->GetSAUserName(), FALSE, TRUE ); 

788: _dbconnection->set_user( user ); 

789: if( AuditingOn( _db ) ) { 

790: char address[80]; 

791 : a_web_protocol_type proto = WEB_HTTP; 

792: _connection->GetRemoteMachineAddr( address, 
793: (int32)sizeof( address ) ); 



794: if( _connection->lsSecure() ) { 

795: proto = WEBJHTTPS; 

796: } 

797: AuditHttpConnection( user->GetSAUserName(), address, GetProtoStr( 
proto ), 

798: TRUE, _db ); 

799: } 

800 : user->Release() ; 

801 : CHECK_CANCEL(); 

802: if( !CallLoginEnvironment( _dbconnection ) ) { 

803: DB_Exec_connect_failed_event_handler( _db, 

804: (char *)_dbconnection->_ew_static_user.str(), NULL ); 

805: _state = REQUEST_INVALID_AUTHENTICATION; 

806: goto finish; 

807: } 

808: if( Debug ) { 

809: DB_Message( IDS_ENG_USER_CONNECTED_TO_DATABASE_FROM_HTTP, 

810: _dbconnection->handle(), 

81 1 : _dbconnection->get_user()->name, 

812: _db->_ro_alias, 

813: GetProtoStr( _connection->GetType() ) ); 

814: DBConnConverter *conv = _stream->getConverter(); 

815: if( conv == NULL ) { 

816: DB_Message( 

IDS_ENG_CHARSET_TRANSLATION_ENABLED_NOT_NEEDED_WITH_CONNID, 

81 7: _dbconnection->handle(), 

818: _db->cs_info->sybase_label ); 

819: }else{ 

820: const Charsetlnfo *cli_cs_info = 

821 : UTLocale::GetCharsetlnfoFromAsaCID( conv->outbound().GetDestCid() 

); 

822: DB_Message( 

IDS_ENG_CHARSET_TRANSLATION_ENABLED_NEEDED_WITH_CONNID, 

823: _dbconnection->handle(), 

824: _db->cs_info->sybase_label, 

825: cli_cs_info->sybase_label ); 

826: } 

827: } 

828: DB_Exec_system_event_handler( _dbconnection->db(), _dbconnection, 
EVT_Connect ); 

829: ProcDebug::ConnectionStarted( _dbconnection ); 

830: /* 

831 : Define special request header fields so user can access them. 

832: BUGBUG: What do we set URI to when processing a SOAP request through 

833: a DISH service? For now, we're setting it to the URI of the 

834: DISH service, not the proxied SOAP service. 

835: 7 

836: _protocol->SetRequestHeader( "@HttpMethod M , 
_protocol->GetMethod() ); 

837: _protocol->SetRequestHeader( "@HttpURI", _protocol->GetUri() ); 



838: _protocol->SetRequestHeader( "@HttpVersion", 
_protocol->GetVersion() ); 
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UpdateReceivedConnProperties(); 
CHECK_CANCEL(); 
switch( _service->GetServiceType() ) { 
case HTTP_SERVICE_XML: 
case HTTP_SERVICE_HTML: 
case HTTP_SERVICE_RAW: 
case HTTP_SERVICE_SOAP: 
DoQuery Request() ; 
break; 

case HTTP_SERVICE_DISH: 
case HTTP_SERVICE_WSDL: 

DoWSDLRequestQ; 

break; 
default: 

_assertD( FALSE ); 

_State = REQUEST_INVALID_SERVICE; 
break; 

} 

#undef CHECK_CANCEL 
finish: 

DatabaseDisconnect(); 

if( _cancel ) { 
_state = REQUEST_CANCELED; 

} 

if(_state != REQUEST_SUCCESS ) { 
_protocol->SetHttpStatus( _state ); 
if( _state == REQUEST_SQL_ERROR ) { 
} else { 

_protocol->SendHttpError( _stream ); 

} 

} 

_stream->flush(); 
UpdateSentConnPropertiesO; 
_worker = NULL; 
_connection->RequestFinished(); 

} 



// httprequest_parseuri 

// Copyright (c) 2004, Sybase, Inc. All Rights Reserved. 
a_bool HttpRequest::ParseURI() 

j** ******************* ******* J 
i 

HttpStrlStream stream( _protocol->GetUri() ); 
unsigned char c; 
a_bool got_service = FALSE; 
_assertD(_database.length() == 0 ); 
_assertD( _service_name.length() == 0 ); 
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_assertD( _arguments.length() == 0 ); 
if( Istream.get(c) ||c !='/'){ 
return FALSE; 

} 

if( _connection->DBNameProvided() ) { 
_database.append( _connection->GetDbName() ); 

} else { 
while( TRUE ) { 

if( !stream.get( c ) ) return TRUE; 
if( c == '/' ) break; 
if( c == '?' ) { 
got_service = TRUE; 
break; 

} 

_database.append( c ); 

} 

} 

if( !got_service ) { 
while( TRUE ) { 

if( !stream.get( c ) ) return TRUE; 
if( c == '?' ) break; 
_service_name.append( c ); 

} 

} 

while( stream .get( c ) ) { 
_arguments.append( c ); 
} 

return TRUE; 

} 



// httprequest_serviceexists 

// Copyright (c) 2004, Sybase, Inc. All Rights Reserved. 

a_bool HttpRequest::ServiceExists( HttpString & name ) 

I* *************************************************** j 

i 

a_bool result = FALSE; 

HttpService * sve; 

a_statement * stmt; 

p_Database db = _CurrentDB; 

sve = HttpService: :Find( db, name.c_str() ); 

if( sve == NULL ) { 
// The service by the full name does not exist... 
// need to split it up into <name>/<url> pieces 
char* str = name.c_str(); 
size_t len = name.length(); 
if( len == 0 ) { 
return FALSE; 

} 

size_t split = len - 1; 



937: for( ; split > 0; split-- ) { // Note: first char cannot be V 

938: if( str[split] == '/' ) { 

939: //split at this point 

940: HttpString tname( str, split ); 

941 : svc = HttpService::Find( db, tname.c_str() ); 

942: if( svc != NULL ) { 

943: if( svc->GetUrlPathType() != URL_PATH_OFF ) { 

944: //got [name=0..split-1]/[url=split+1 ..len-1] 

945: len = len - split - 1 ; 

946: if( len == 0 || svc->GetUrlPathType() == URL_PATH_OFF ) { 

947: _url_path.set_empty(); 

948: } else { 

949: _url_path.append( str+(split+1), len ); 

950: } 

951 : name. res ize( split ); 

952: break; 

953: } else { 

954: svc->Release(); 

955: svc = NULL; 

956: } 

957: } 

958: } 

959: } 

960: if( split — 0 ) { 

961: return FALSE; 

962: } 

963: } 

964: if( svc != NULL ) { 

965: _uid = svc->GetUid(); 

966: stmt = svc->LockStmt(); 

967: if( stmt != NULL ) { 

968: p_expr stmtstr; 

969: uint32 len; 

970: stmtstr = Prep_to_str( NULL, stmt ); 

971 : stmtstr = an_ExprBuilder::GblBuilder.DB_Find_expr( stmtstr, 
FALSE ); 

972: len = (uint32) stmtstr->v.str->length(); 

973: _parms = new HttpString( len + 1 ); 

974: { 

975: // Copy string to _parms 

976: DbStrlStream s( *stmtstr->v.str, _CurrentConnection ); 

977: s.get( (a_byte *) _parms->str(), (uint32) 
stmtstr- >v.str->length() ); 

978: _parms->resize( len ); 

979: } 

980: DE_Free_expr( stmtstr ); 

981: } 

982 : svc->U nlockStmt() ; 

983: result = TRUE; 

984: } 



985: _service = svc; 
986: return result; 
987:} 
988: 

989: // httppresxml 

990: // Copyright (c) 2004, Sybase, Inc. All Rights Reserved. 

. a ***************************************************** 

992: // Copyright 2002-2003 iAnywhere Solutions, Inc. All rights reserved. 

ggg . a ******************************************************************* 

994: #include "httppres.h" 

995: #include "httpstring.h" 

996: #include "dbusrtyp.h" 

997: #include "httputil.h" 

998: // #include "dblangstring.hpp" 

999: #include "cachecarver.hpp" 

1000: #include "dbvector.h" 

1 001 : typedef struct _a_col_name { 

1 002 : struct _a_col_name * next; 

1003: uint16 len; 

1 004: char name[2]; // a variable length 
1005: } a_col_name, *p_col_name; 

1006" if*** ************************************** *************************** 
** 

1007: class HttpPresXML : public HttpPres { 
1008: protected: 

1009: UTCollation* _col; // db's collation 

1010: a_bool _has_xml; // db has XML typeid / 

1011: uint16 _xml_typeid; 

1012: a_bool _saw_xml; //we saw some XML columns 
1013: a_bool _do_xml_formatting; //we need to do the formatting 
1014: CacheCarver* _carver; 
1015: p_col_name _first_col; 

1016: p_col_name _current; // "cur" column i.e. columnL_cur_idx] 
1017: uint16 _cur_idx; 
1018: public: 

1019: HttpPresXML( HttpOStream * ostream, UTCollation * col ); 
1020: virtual -HttpPresXMLQ; 
1021 : protected: 

1022: virtual void AddColumn( 
1 023 : char * table_name, 
1024: char * coln_name, 
1025: uint16 coln_namelen, 
1026: uint32 asa_usertype ); 
1027: virtual void BeginDoc( void ); 

1028: virtual void BeginResultSet( void ); // start of result set 
(table) 

1029: virtual void BeginRow( void ); 
1030: virtual void BeginColumn( void ); 
1031 : virtual void EndColumn( void ); 
1032: virtual void EndRow( void ); 



virtual void EndResultSet( void ); // end result set (table) 
virtual void EndDoc( void ); 

virtual void SendColumnValue( void * data, uint32 len ); 
virtual void SendColumnMultiPiece( void * data, uint32 len ); 
virtual void SendSQLError( void * errmsg, size_t len ); 
virtual void NoContentDocBody( void ); // called when doc has no 
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1039:}; 
"1 040" //************************* 



******************************************* 
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HttpPres * New_HttpPresXML( HttpOStream * ostream, UTCollation * col ) 

I******************************************************************** I 
{ 

return new HttpPresXML( ostream, col ); 

} 

HttpPresXML::HttpPresXML( HttpOStream * ostream, UTCollation * col ) 
: HttpPres( ostream, col ) 
_has_xml( FALSE ) 
_xml_typeid( 0 ) 
_saw_xml( FALSE ) 
_do_xml_formatting( FALSE ) 
_carver( NULL ) 
_first_col( NULL ) 
_current( NULL ) 

_cur_idx( 0 ) 

I******************************* I 

{ 

a_user_type * utype = FindUserType( "xml" ); 

if( utype != NULL ) { 
_has_xml = TRUE; 
_xml_typeid = utype->type_id; 

} else { 

// SetPresStatus( PRES_NO_XML_USERTYPE ); 
// we will format the XML output in this code 
_do_xml_formatting = TRUE; 

} 

_wants_null_values = FALSE; // XML does not show null values 

} 

HttpPresXML::~HttpPresXML() 

I************************* J 

{ 

if(_carver != NULL ) { 
delete _carver; 
} 

} 

II*** ********************************************************** ******* 



1077: // Document generation routines 

1078://** 



****************************************************************** 



1079: void HttpPresXML::AddColumn( 

1080: char* table_name, 

1 081 : char * coln_name, 

1082: uint16 coln_namelen, 

1083: uint32 asa_usertype ) 

1 084' /****************************************************/ 

1085: { 

1086: _unused( table_name ); 

1 087: _unused( coln_name ); 

1088: _unused( coln_namelen ); 

1089: if ( _carver == NULL) { 

1090: _carver = new CacheCarver( NULL ); 

1091: } 

1092: // check that the column name is valid XML name 

1 093 : // if the user did not format the output as XML 

1 094: // then we are only going to allow "nice" ascii names 

1095: int i; 

1096: int k; 

1097: p_col_name p; 

1098: char cname[256]; 

1099: for( i=0; kcoln_namelen; i++ ) { 

1 100: if( coln_name[i] >= 'a' && coln_name[i] <= 'z' ) continue; 

1 101 : if( coln_name[i] >= 'A' && coln_name[i] <= 'Z' ) continue; 

1 102: if( coln_name[i] == '_' || coln_name[i] == ':' ) continue; 

1103: if ( i == 0 ) break; 

1 104: if( coln_name[i] >= '0' && coln_name[i] <= '9' ) continue; 

1 105: if( coln_name[i] == '-' || coln_name[i] == '.' ) continue; 

1106: break; 

1107: } 

1 108: if( i < coln_namelen || coln_namelen == 0 ) { 

1 1 09 : // not a valid name - make one up 

1110: sprintf( cname, "_%d", _descriptor_count ); 

1111: coln_name = cname; 

1112: coln_namelen = _strlen( cname ); 

1113: } 

1114: // make sure that the column name is unique 

1115: for( k=0,i=0,p=_first_col; p!=NULL; ) { 

1116: if( p->len == coln_namelen ) { 

1117: if( _strnieq( p->name, coln_name, coln_namelen ) ) { 

1118: // duplicate name - use a unique name 

1119: sprintf( cname, ((i==0)?"_%d_%d":"_%d_%d_%d"), _descriptor_count, 
k+1, i++ ); 

1 1 20 : coln_name = cname; 

1 121 : coln_namelen = _strlen( cname ); 

1 122: // start over again to make sure our new name is now unique 

1123: k = 0; 

1124: p = _first_col; 

1125: } 

1126: } 

1127: k++; 



1128: p = p->next; 
1129: } 

1 130: // when we get here, the name is unique and so add it after 
_current 

1 131 : p = (p_col_name)_carver->alloc( AL_MEMORY, 
sizeof(a_col_name)+coln_namelen ); 
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memcpy( p->name, coln_name, coln_namelen ); 

p->next = NULL; 

p->len = coln_namelen; 

if ( _first_col == NULL){ 
_first_col = p; 
_cur_idx = 0; 

} else { 
_current->next = p; 
_cur_idx ++; 

} 

_current = p; 

if( _has_xml && asa_usertype == _xml_typeid ) { 
_saw_xml = TRUE; 

} 

if( _descriptor_count == 1 && asa_usertype == _xml_typeid ) { 
// we only expect to get one XML column ... 
// if we don't, then we will format the columns into XML ourselves 

} else { 

// SetPresStatus( PRES_NOT_XML_RESULTSET ); 
// force formatting of the output in this code 
_do_xml_formatting = TRUE; 

} 

} 

void HttpPresXML::BeginDoc( void ) 

I* ******************* ************ J 

{ 

PutAsc( "<?xml version=\"1 .0\" ?>\n" ); 

} 

void HttpPresXML::BeginResultSet( void ) 

J* ***************************** ******** J 

{ 

PutAsc( "<root>\n" ); 

} 

void HttpPresXML::BeginRow( void ) 

J* ******************* ************ J 
i 

if( _do_xml_formatting ) { 
PutAsc( "<row" ); 
_current = _first_col; 
_cur_idx = 0; 

} 

} 

void HttpPresXML::BeginColumn( void ) 

I* ******************* *************** i 



1176: { 

1 1 77: if( _do_xml_formatting ) { 

11 78: for(; _cur_idx < _col_ctr; _cur_idx++ ) { 

1179: _assertD(_current != NULL); 

1 1 80 : _current = _current->next; 

1181: } 

1 182: _assertD( _current != NULL ); 
1183: PutAsc("); 

1 184: PutData( _current->name, _current->len, HF COLNAME ); 
1185: PutAsc( "=\"" ); 
1186: } 
1187:} 

1 188: void HttpPresXML::EndColumn( void ) 
1190: { 

1191: if( _do_xml_formatting ) { 
1192: PutAsc(""); 
1193: } 
1194:} 

1 195: void HttpPresXML::EndRow( void ) 
1197: { 

1 1 98 : if ( _do_xml_formatting ) { 
1199: PutAsc( 7>\n" ); 
1200: } 
1201:} 

1202: void HttpPresXML::EndResultSet( void ) 

1 203 " /************************************ j 

1204: { 

1205: PutAsc( "</root>\n" ); 
1206:} 

1207: void HttpPresXML::EndDoc( void ) 

1 208 " f* ******************* ********** j 

1209: { 
1210:} 

121 1 : void HttpPresXML::SendColumnValue( void * data, uint32 len ) 

-j 2 ■ ^*********************************************************** j 

1213: { 

1214: if( _do_xml_formatting ) { 
1215: if ( len > 0 ) { 

1216: PutData( (char *)data, (size_t)len, HF_ENC ); // db data is 
cs-conv up in engine 
1217: } 
1218: }else{ 

1219: //no encoding or conversion is required because the engine already 
did it 

1220: PutData( (char *)data, (size_t)len, HF NONE ); // data is 
already XML 
1221: } 
1222: } 



1223: void HttpPresXML::SendColumnMultiPiece( void * data, uint32 len ) 
1 224" j'*************************************************************** i 

1225: { 

1226: if( _do_xml_formatting ) { 
1227: if ( len > 0 ) { 

1228: PutData( (char *)data, (size_t)len, HF ENC ); // db data is 
cs-conv up in engine 
1229: } 
1230: }else{ 

1231 : // no encoding or conversion is required because the engine already 
did it 

1232: PutData( (char *)data, (size_t)len, HF NONE ); // data is 
already XML 
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} 

} 

void HttpPresXML::SendSQLError( void * errmsg, size_t len ) 

I* ******************************************* ************* J 

{ 

PutAsc( "<SQLerror message=V" ); 

PutData( (char *)errmsg, len, HF_ENC|HF_CONV ); 

PutAsc( T/> " ); 

} 

void HttpPresXML::NoContentDocBody( void ) 

I* ************** ************************* i 
{ 

II in this case, we want to just dump the headers without any rows 

BeginResultSet(); 

EndResultSet(); 

} 



// sa_set_http_header 

// Copyright (c) 2004, Sybase, Inc. All Rights Reserved, 
static a_ptrint 

sa_set_http_header( a_queue *parm_q ) 

I* ******************* *************** i 

I 

char * fldname; 
char * val; 

GetParms( parm_q, &fldname, &val ); 
#if defined( HTTP_SUPPORT ) 

if( !_CurrentConnection->SetHTTPHeaderField( fldname, val ) ) { 
dbi_sql_errors( S Q LSTAT E_l N VAL I D_H TT P_H E A D E R_S ETT I N G , fldname ); 
return( -1 ); 

} 

#endif 

return( 0 ); 

} 



1270: // sa_set_http_option 

1271 : // Copyright (c) 2004, Sybase, Inc. All Rights Reserved. 
1272: static a_ptrint 

1273: sa_set_http_option( a_queue *parm_q ) 
-| 274' ^*********************************** J 

1275: { 

1276: char* optname; 
1277: char* val; 

1278: GetParms( parm_q, &optname, &val ); 
1279: #if defined( HTTP_SUPPORT ) 

1280: if( !_CurrentConnection->SetHTTPOption( optname, val ) ) { 

1281 : dbi_sql_errors( SQLSTATE_INVALID_HTTP_OPTION_SETTING, optname ); 

1282: return( -1 ); 

1283: } 

1284:#endif 

1285: return(O); 

1286:} 

1287: 

1288: 

1289: // sethttpheaderfield 

1290: // Copyright (c) 2004, Sybase, Inc. All Rights Reserved. 

1291 : a_bool Connection: :SetHTTPHeaderField( char * fldname, char * val ) 

1293: { 

1294: a_bool result = FALSE; 

1295: if( http_conn != NULL && fldname != NULL && *fldname != '\0' ) { 
1296: result = http_conn->GetProtocol()->SetResponseHeader( fldname, val 
== NULL ? "" : val ); 
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} 

return( result ); 



// sethttpoption 

// Copyright (c) 2004, Sybase, Inc. All Rights Reserved. 

a_bool Connection: :SetHTTPOption( char * optname, char * val ) 

J* ************************************************ ********* J 
{ 

a_bool result = FALSE; 

if( http_conn != NULL && optname != NULL && *optname != '\0' ) { 
result = http_conn->GetProtocol()->SetHTTPOption( optname, 
(char *)( val == NULL ? " : val ) ); 
} 

return( result ); 

} 

a_bool HttpProtocol::SetHTTPOption( char * optname, char * value ) 

I* ************************************************ *************** J 

{ 

// Validate option names [and values]. 

if( _strieq( optname, "CharsetConversion" ) ) { 



1319: if( _strieq( value, "ON" ) ) { 

1320: _connection->GetStream()->set_translation_wanted( TRUE ); 
1321 : } else if( _strieq( value, "OFF" ) ) { 

1322: _connection->GetStream()->set_translation_wanted( FALSE ); 

1323: }else{ 

1324: return( FALSE ); 

1325: } 

1326: }else{ 

1327: return( FALSE ); 

1328: } 

1329: _options.Set( optname, value ); 

1330: return(TRUE); 

1331:} 

1332: 

1333: 

1334: // setresponseheader 

1335: // Copyright (c) 2004, Sybase, Inc. All Rights Reserved. 

1336: a_bool HttpProtocol::SetResponseHeader( const char * key, const char 

* value ) 

-| ■ /* ******************************************************************** 
******* J 

1338: { 

1339: _assertD( key != NULL ); 

1340: if( *key == '<§>' ) { 

1 341 : // special values 

1342: if( _strieq( key, "@HttpStatus" ) ) { 

1 343 : // value had better be the numeric status code 

1344: int v = atoi( value ); 

1345: int i = StatusLinelndex( v ); 

1346: if( i == LEVEL_600 ) { 

1347: // invalid value 

1348: return FALSE; 

1349: } 

1 350 : SetHttpStatus( (HttpStatus)v ); 
1351: return TRUE; 
1352: } 
1353: } 

1354: // check that the key and value consists of valid HTTP characters 
1355: const char * s; 

1356: #define IS_HTTP_TOKEN_CHAR( c ) ( (c)>' ' && (c)<='~' && 
!lsHttpSeparator( c ) ) 

1357: #define VALID_HTTP_KEY_CHAR( c ) IS_HTTP_TOKEN_CHAR( c ) 
1358: #define VALID_HTTP_VAL_CHAR( c ) ( ((c)>=' ' && (c)<='~') || 

(0=='\r ) 

1359: // TBD: we need to handle LWS (continuation lines) in the field 
values 

1360: for( s=key; *s != \0'; s++ ) { 

1361 : if( !VALID_HTTP_KEY_CHAR( *s ) ) { 

1362: return FALSE; 

1363: } 



1364: } 

1365: for( s=value; *s != W; s++ ) { 
1366: if( !VALID_HTTP_VAL_CHAR( *s ) ) { 
1367: return FALSE; 
1368: } 
1369: } 

1370: _response.Set( key, value ); 

1371: return TRUE; 

1372:} 

1373: 

1374: 



